home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_81 / lingo.bas (.txt) next >
Atari STOS Basic  |  1987-04-21  |  7KB  |  145 lines
  1. 10 DIM
  2. 100 WINDOPEN
  3. 10000 REM ******* Super Input Routine *****************
  4. 10001 REM * variabelen : cursor  : xex,yey            *
  5. 10002 REM *              lengte  : L                  *
  6. 10003 REM *              Tekst   : AA1$               *
  7. 10005 REM * terug      : Tekst   : R$                 *
  8. 10006 REM *              ESC     : 1 or 0             *
  9. 10007 REM *********************************************
  10. 10008 VARNAME
  11. 10009 VARNAME
  12. 10010 VARNAME
  13. 10015 LOCATE
  14. 10020 VARNAME
  15. 10021 IF
  16. 10022 IF
  17. 10023 IF
  18. 10025 IF
  19. 10035 IF
  20. 10040 IF
  21. 10045 IF
  22. 10050 IF
  23. 10055 IF
  24. 10060 IF
  25. 10065 GOTO
  26. 10090 REM einde routine
  27. 10091 VARNAME
  28. 10092 VARNAME
  29. 10099 RETURN
  30. 110 PEN
  31. 120 PRINT
  32. 130 PRINT
  33. 140 PRINT
  34. 150 LOCATE
  35. 160 PEN
  36. 170 LOCATE
  37. 180 LOCATE
  38. 190 LOCATE
  39. 20 REM scherm
  40. 200 LOCATE
  41. 210 FOR
  42. 220 PAPER
  43. 230 NEXT
  44. 240 REM begin
  45. 250 WINDOW
  46. 260 PAPER
  47. 270 CURS
  48. 280 INPUT
  49. 290 IF
  50. 30 MODE
  51. 300 VARNAME
  52. 310 VARNAME
  53. 315 VARNAME
  54. 320 FOR
  55. 330 CLW
  56. 340 REM spel
  57. 35 RESTORE
  58. 350 REM 
  59. 355 INC
  60. 360 QWINDOW
  61. 370 LOCATE
  62. 3999 REM data lines with 5 letter-words between 4000 and 4999                           !! type in your own words !!
  63. 40 CURS
  64. 400 WINDOW
  65. 4000 DATA
  66. 4001 DATA
  67. 410 REM woord
  68. 420 VARNAME
  69. 440 REPEAT
  70. 445 IF
  71. 450 UNTIL
  72. 455 REM qwindow 2 : print W$ : qwindow 1
  73. 460 VARNAME
  74. 470 FOR
  75. 475 VARNAME
  76. 480 VARNAME
  77. 4999 DATA
  78. 50 KEY
  79. 500 INC
  80. 510 VARNAME
  81. 515 PAPER
  82. 520 VARNAME
  83. 530 GOSUB
  84. 540 LOCATE
  85. 545 FOR
  86. 547 VARNAME
  87. 550 FOR
  88. 570 VARNAME
  89. 575 IF
  90. 576 NEXT
  91. 577 FOR
  92. 578 FOR
  93. 579 VARNAME
  94. 580 IF
  95. 585 NEXT
  96. 590 NEXT
  97. 60 PALETTE
  98. 600 VARNAME
  99. 605 IF
  100. 606 DEC
  101. 607 IF
  102. 610 GOTO
  103. 620 REM verder
  104. 630 QWINDOW
  105. 631 LOCATE
  106. 690 GOTO
  107. 70 PAPER
  108. 700 REM goed
  109. 710 VARNAME
  110. 720 PLAY
  111. 730 QWINDOW
  112. 780 WAIT
  113. 799 GOTO
  114. 80 WINDOPEN
  115. 800 REM fout
  116. 810 FOR
  117. 820 WAIT
  118. 830 FOR
  119. 840 VARNAME
  120. 850 GOSUB
  121. 880 WAIT
  122. 899 GOTO
  123. 90 PAPER
  124. 9000 REM woord voorzetten
  125. 9005 FOR
  126. 9010 VARNAME
  127. 9015 PAPER
  128. 9020 IF
  129. 9030 LOCATE
  130. 9050 NEXT
  131. 9080 PAPER
  132. 9090 RETURN
  133. 9100 REM woord nakijken
  134. 9110 FOR
  135. 9111 PAPER
  136. 9112 LOCATE
  137. 9115 PLAY
  138. 9120 VARNAME
  139. 9140 IF
  140. 9150 IF
  141. 9160 LOCATE
  142. 9170 NEXT
  143. 9180 PAPER
  144. 9190 RETURN
  145.